home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / BBEdit / MacBob 1.0ß2 / Examples / GlobalVariable.bob < prev    next >
Encoding:
Text File  |  1995-12-07  |  148 b   |  15 lines  |  [TEXT/R*ch]
  1. main ()
  2. {
  3.     p = "Set by main\n";
  4.     print("main >> ", p);
  5.     test();
  6.     print("main >> ", p);
  7. }
  8.  
  9.  
  10. test ()
  11. {
  12.     print("test >> ", p);
  13.     p = "Set by test\n";
  14. }
  15.